Compute! Gazette 1985 April/1985-04.d64/no zap_64

Commodore BASIC | 2022-09-20 | 2KB | 57 lines

1 rem nozap for the 64
2 poke56,peek(56)-1:clr:i=256*peek(56)+peek(55):s=i
4 deffnh(x)=int(x/256)
6 deffnl(x)=x-fnh(x)*256
8 data169,16,141,10,220,96,76
10 forj=739to745:readk:pokej,k:next
12 poke746,peek(55):poke747,peek(56)
14 print "[147]sys 739=forced save. sys 745=toggle."
16 read a:b=b+a:if a=256 then 102
18 poke i,a:i=i+1:goto 16
20 data 173,236,2,73,1,141
22 data 236,2,208,13,169,131
24 data 141,2,3,169,164,141
26 data 3,3,76,131,164,169
28 data 48,141,239,2,141,240
30 data 2,169,7,160,7,32
32 data 30,171,32,249,171,160
34 data 2,185,254,1,153,239
36 data 2,240,3,200,208,245
38 data 140,237,2,162,7,160
40 data 7,142,2,3,140,3
42 data 3,169,1,141,238,2:rem change the 1 for a longer interval
44 data 169,0,141,8,220,141
46 data 9,220,141,10,220,173
48 data 10,220,41,240,240,117
50 data 206,238,2,208,233,238
52 data 240,2,173,240,2,201
54 data 58,208,20,169,48,141
56 data 240,2,238,239,2,173
58 data 239,2,201,58,208,5
60 data 169,48,141,239,2,173
62 data 237,2,162,239,160,2
64 data 32,189,255,169,1,162
66 data 8,160,0,32,186,255
68 data 169,43,166,45,164,46
70 data 32,216,255,169,141,32
72 data 210,255,169,0,32,189
74 data 255,169,15,162,8,160
76 data 15,32,186,255,32,192
78 data 255,162,15,32,198,255
80 data 32,207,255,201,13,240
82 data 6,32,210,255,56,176
84 data 243,32,210,255,169,15
86 data 32,195,255,32,204,255
88 data 76,7,7,76,131,164
90 data 18,78,79,90,65,80
92 data 146,32,66,89,32,66
94 data 76,65,75,69,32,76
96 data 65,77,66,69,82,84
98 data 13,70,73,76,69,78
100 data 65,77,69,0,256
102 if b<>28715thenprint"error in data satements.":end
104 poke s+32,fnl(s+210):pokes+34,fnh(s+210)
106 poke s+58,fnl(s+83):pokes+60,fnh(s+83)
108 poke s+205,fnl(s+67):pokes+206,fnh(s+67)
110 sys745